.*
.*
.*                    +----------+
.*    Macro Name   -   @FLATDS  
.*                    +----------+
.*
.*
.*    Function -
.*             Flat dataset file definition
.*
.*    Syntax -
.*
.*
.*    Operation -
.*
.*
.*    Author -
.*         Name     :  Deru Sudibyo
.*                     Technical Consultant
.*                     Computer Associates
.*                     Indonesia Office
.*                     Wisma BNI-46 34th floor, BNI-46 City
.*                     Jl. Jend. Sudirman, Kav 1, Jakarta Pusat
.*         Copyright:  (C)1998 Deru Sudibyo
.*
.*    Disclaimer -
.*        This macro is developed as a personal support, and is
.*        not a part of CA support matterials.  The purpose is as
.*        a temporary solution or even just a sample.  Therefor,
.*        further modifications and maintenance are client's
.*        responsibilities.
.*
.*    Modification Log -
.*    +--------+------------+--------+---------------------------+
.*     Date    Engineer    V.R.L.  Description               
.*    +--------+------------+--------+---------------------------+
.*    98/02/12 Deru S.     1.0.0.  First development         
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*                                                           
.*    +--------+------------+--------+---------------------------+
.*
         MACRO
&LABEL   @FLATDS &BLKSIZE=6233,&LRECL=150,&SPACE=(CYL,(50,5),RLSE),    +
               &VOLUNIT=3390,&DDNAME=LCLDS01,&ABNDISP=KEEP
         COPY  DERGBLVR
ALFLATDS @S99PARM ALLOC,                  Define Flat file alloc parm  +
               TYPE=DATA,                 Map type is memory data      +
               PREFIX=F,                  Use prefix F --> FRBxxxx     +
               EXTRB=YES,                 Request S99RBX               +
               DD=&DDNAME,                DD name is LCLDS01           +
               DSN='CADS.XCOM.SAMPLE.DATA',  Predefine DSN             +
               DSORG=PS,RECFM=VB,            DCB:                      +
               BLKSIZE=&BLKSIZE,LRECL=&LRECL,                          +
               SPACE=&SPACE,                 Specify space for new     +
               UNIT=&VOLUNIT,                 dataset in this unit of  +
               DISP=(NEW,CATLG),          Use this disposition and     +
               RECBUF=YES,                Generate record buffer       +
               FREE=CLOSE,                Deallocate at close          +
               CDISP=&ABNDISP             What to do if job abend
UNFLATDS @S99PARM FREE,                   Define Flatfile dealloc parm +
               TYPE=DATA,                 Map type is memory data      +
               EXTRB=YES,                 Request S99RBX               +
               PREFIX=U,                  Use prefix U --> URBxxxx     +
               DD=&DDNAME                 DD name is LCLDS01
         MEND
